home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2000-11-12 | 1.2 KB | 50 lines |
- "FILE"="Xteq Systems X-Setup Plugin 6.0"
- "TYPE"="2"
- "COUNT"="1"
- "UIPATH"="Hardware\Mouse\Wheelmouse"
- "NAME"="Wheelmouse Scroll"
- "VERSION"="1.23"
- "LANGUAGE"="VBScript"
- "TEXT 1"="Lines"
- "DESCRIPTION 1"="Use this setting to specify how many lines a window should scroll if you use the wheel on your mouse."
- "DESCRIPTION 2"="To stop scrolling with the wheel, use "0"."
- "AUTHOR"="Xteq Systems"
- "CONTACTURL"="http://www.xteq.com"
- "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
- "COMMENT 1"=" "
-
-
- sP="HKCU\Control Panel\Desktop\WheelScrollLines"
-
- 'Called when the Plugin is started
- SUB Plugin_Initialize
- i=RegReadValue(sP)
- if IsEmpty(i) then
- SetUIElement 1,""
- else
- SetUIElement 1,i
- end if
-
- END SUB
-
- 'Called when the Plugin should validate the Data the user has entered
- SUB Plugin_CheckData(ElementIndex)
- END SUB
-
- 'Called when the Plugin should apply the changes
- SUB Plugin_Apply(ElementIndex,ElementSubIndex)
- s=GetUIElement(1)
-
- if len(s)<>0 then
- Call RegWriteValue(sP,s,1)
- Call Restart
- else
- Call MsgError("Please supply a number!")
- end if
-
- END SUB
-
- 'Called when the Plugin is about to be removed from memory
- SUB Plugin_Terminate
- END SUB
-